home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Serious Demos / Crimson Demo / Crimson Demos / ListBox Demo / Initial next >
Encoding:
Text File  |  1997-06-17  |  214 b   |  12 lines  |  [TEXT/ttxt]

  1. Global FileMenu As Integer
  2. Global QuitItem As Integer
  3.  
  4.     * Set up menu
  5.     Initmenu
  6.     FileMenu=AddMenu("File")
  7.     QuitItem=AddmenuItem(FileMenu,"Quit","Q")
  8.  
  9.     * Open the Demo Window
  10.     DemoForm.OpenWindow
  11.  
  12.